home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / comm / mail / yamlist.lha / mail2users.rexx < prev    next >
OS/2 REXX Batch file  |  1997-02-21  |  1KB  |  55 lines
  1. /*
  2. ** $VER: Forward.rexx 1.0 (12.30.96)
  3. **
  4. ** Written by Peter Greci <midgard@nycmetro.com>
  5. **
  6. ** It forwards messages from the incoming folder to members of the
  7. ** mailing list.
  8. **/
  9.  
  10. OPTIONS RESULTS
  11. ADDRESS YAM
  12. SetFolder 1      /* outgoing */
  13. GetFolderInfo MAX; entries = RESULT
  14. ADDRESS REXX
  15. Do Until eof('plist')=1
  16.     open('plist','listserv:list','R')
  17.     newad=readln('plist')
  18.     ADDRESS YAM
  19.     DO i=0 TO entries-1
  20.        SetMail i
  21.        GetMailInfo SUBJECT
  22.        sub=RESULT
  23.        GetMailInfo FROM
  24.        ret=RESULT
  25.        parse var ret crap '<'user'>' .
  26.        parse var newad crap '<'testad'>'
  27.        if verifyuser(user) & upper(user)~=upper(testad) then do /* no bounce */
  28.        mailforward                                           
  29.        writemailto newad
  30.        writequeue
  31.        end
  32.     END
  33.   end
  34.   if entries>0 then do
  35.     mailsendall
  36.     mailarchive 3
  37.     setfolder 3
  38.     maildelete
  39.     setfolder 0
  40.   end
  41. EXIT
  42.  
  43. verifyuser:
  44.   parse arg test .
  45.   open('checklist','listserv:list','R')
  46.   do until eof('checklist')
  47.     checkuser=readln('checklist')
  48.     if upper(checkuser)=upper(test) then do
  49.              close(checklist)
  50.         return 1
  51.     end
  52.   end
  53.   close('checklist')
  54. return 0
  55.